home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 2000 December / MaxiMac 109.iso / KitWeb / Wanadoo / Media / Present.dcr / Scripts_110.ls < prev    next >
Encoding:
Text File  |  2000-10-10  |  655 b   |  26 lines
  1. on exitFrame
  2.   global gPC, gD, gVlog, gVsac
  3.   vMovpat = the moviePath
  4.   repeat with r = 1 to 6
  5.     delete char -30000 of vMovpat
  6.   end repeat
  7.   repeat with i = 1 to 100
  8.     n = getNthFileNameInFolder(vMovpat, i)
  9.     m = getNthFileNameInFolder(the moviePath, i)
  10.     if n = "Services" then
  11.       gVsac = 128
  12.       sprite(20).locV = gVsac
  13.     end if
  14.     if m = "logo.jpg" then
  15.       importFileInto(sprite(21).member, the moviePath & "logo.jpg")
  16.       gVlog = 77
  17.       sprite(21).locV = gVlog
  18.     end if
  19.     if (sprite(20).locV = 128) and (sprite(21).locV = 77) then
  20.       gVsac = 230
  21.       sprite(20).locV = gVsac
  22.     end if
  23.   end repeat
  24.   updateStage()
  25. end
  26.